home *** CD-ROM | disk | FTP | other *** search
/ C++ für Kids / C++ for kids.iso / Buch / Befund5a.cpp < prev    next >
C/C++ Source or Header  |  1998-12-22  |  4KB  |  147 lines
  1. //---------------------------------------------------------------------------
  2. #include <vcl\vcl.h>
  3. #pragma hdrstop
  4.  
  5. #include "Befund5a.h"
  6. //---------------------------------------------------------------------------
  7. #pragma resource "*.dfm"
  8.  
  9. const String DateiName = "Diagnose.txt";
  10. const String SammelName = "PsychoX.txt";
  11.  
  12. TForm1 *Form1;
  13. TStringList *Diagnose;
  14. TStringList *Psycho;
  15. int Nr; bool Sicher;
  16.  
  17. //---------------------------------------------------------------------------
  18. __fastcall TForm1::TForm1(TComponent* Owner)
  19.     : TForm(Owner)
  20. {
  21. }
  22. //---------------------------------------------------------------------------
  23. void __fastcall TForm1::FormCreate(TObject *Sender)
  24. {
  25.   randomize ();
  26.   Diagnose = new TStringList;
  27.   Psycho = new TStringList;
  28.   Diagnose->Add ("Keine Sprechstunde");
  29.   ScrollBar1->Min = 0;
  30.   ScrollBar1->Max = Diagnose->Count - 1;
  31.   Sicher = false;
  32. }
  33. //---------------------------------------------------------------------------
  34. void __fastcall TForm1::Button1Click(TObject *Sender)
  35. {
  36.   Panel1->Caption = "";
  37.   Edit1->Text = "";
  38.   Edit1->SetFocus ();
  39. }
  40. //---------------------------------------------------------------------------
  41. void __fastcall TForm1::Button2Click(TObject *Sender)
  42. {
  43.   Psycho->Add (Edit1->Text);
  44.   Nr = random (Diagnose->Count);
  45.   Panel1->Caption = Diagnose->Strings[Nr];
  46.   Sicher = false;
  47. }
  48. //---------------------------------------------------------------------------
  49. void __fastcall TForm1::ScrollBar1Change(TObject *Sender)
  50. {
  51.   Panel1->Caption = Diagnose->Strings[ScrollBar1->Position];
  52. }
  53. //---------------------------------------------------------------------------
  54. void __fastcall TForm1::Oeffnen1Click(TObject *Sender)
  55. {
  56.   try
  57.   {
  58.     if (OpenDialog1->Execute ())
  59.       Diagnose->LoadFromFile (OpenDialog1->FileName);
  60.     ScrollBar1->Max = Diagnose->Count - 1;
  61.   }
  62.   catch (...)
  63.   {
  64.     Application->MessageBox
  65.       ("Fehler beim ╓ffnen der Datei!", "Achtung!", 0+48);
  66.   }
  67. }
  68. //---------------------------------------------------------------------------
  69. void __fastcall TForm1::Speichern1Click(TObject *Sender)
  70. {
  71.   try
  72.   {
  73.     if (SaveDialog1->Execute ())
  74.     {
  75.       Psycho->SaveToFile (SaveDialog1->FileName);
  76.       Sicher = true;
  77.     }
  78.   }
  79.   catch (...)
  80.   {
  81.     Application->MessageBox
  82.       ("Fehler beim Speichern der Datei!", "Achtung!", 0+48);
  83.     Sicher = false;
  84.   }
  85. }
  86. //---------------------------------------------------------------------------
  87. void __fastcall TForm1::Drucken1Click(TObject *Sender)
  88. {
  89.   try
  90.   {
  91.     if (PrintDialog1->Execute ())
  92.     {
  93.       RichEdit1->Text = Diagnose->Text;
  94.       RichEdit1->Print ("Diagnose");
  95.     }  
  96.   }
  97.   catch (...)
  98.   {
  99.     Application->MessageBox
  100.       ("Fehler beim Drucken der Datei!", "Achtung!", 0+48);
  101.   }
  102. }
  103. //---------------------------------------------------------------------------
  104. void __fastcall TForm1::Ende1Click(TObject *Sender)
  105. {
  106.   int Knopf;
  107.   if (!Sicher)
  108.   {
  109.     Knopf = Application->MessageBox
  110.               ("Alle Eingaben (nochmal) speichern?", "", 3+32);
  111.     if (Knopf == IDYES) Speichern1Click (Sender);
  112.   }
  113.   if (Knopf != IDCANCEL) Close ();
  114. }
  115. //---------------------------------------------------------------------------
  116. void __fastcall TForm1::Neu1Click(TObject *Sender)
  117. {
  118.   Button1Click(Sender);
  119. }
  120. //---------------------------------------------------------------------------
  121. void __fastcall TForm1::Drucken2Click(TObject *Sender)
  122. {
  123.   Button2Click(Sender);
  124. }
  125. //---------------------------------------------------------------------------
  126. void __fastcall TForm1::Speichern2Click(TObject *Sender)
  127. {
  128.   Speichern1Click(Sender);
  129. }
  130. //---------------------------------------------------------------------------
  131. void __fastcall TForm1::Oeffnen2Click(TObject *Sender)
  132. {
  133.   Oeffnen1Click(Sender);
  134. }
  135. //---------------------------------------------------------------------------
  136. void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
  137. {
  138.   int Knopf;
  139.   if (!Sicher)
  140.   {
  141.     Knopf = Application->MessageBox
  142.               ("Alle Eingaben (nochmal) speichern?", "", 4+32);
  143.     if (Knopf == IDYES) Speichern1Click (Sender);
  144.   }
  145. }
  146. //---------------------------------------------------------------------------
  147.